home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 85 / CD-ROM 85 / CD-ROM 85.iso / perso / scr / SCR12.exe / {app} / wave.dpr < prev    next >
Encoding:
Text File  |  2000-01-30  |  853 b   |  34 lines
  1. program wave;
  2.  
  3. uses
  4.   Forms,
  5.   sysutils,
  6.   dialogs,
  7.   windows,
  8.   wave_main in 'wave_main.pas' {mainscreen};
  9.  
  10. {$R *.RES}
  11. {$D SCRNSAVE : Wave}
  12.  
  13. var hMutex : THandle;
  14.  
  15. begin
  16.   hMutex := CreateMutex (nil, false, 'Screensaver_%G^H&J*K(:');
  17.   if (hMutex <> 0) and (GetLastError=ERROR_ALREADY_EXISTS) then
  18.    begin
  19.     CloseHandle (hMutex);
  20.     halt;
  21.    end;
  22.  
  23.   if (Paramcount > 0) AND ((UpperCase(ParamStr(1)) = '/S') OR (UpperCase(ParamStr(1)) = '-S')) then
  24.    begin
  25.     Application.Initialize;
  26.     Application.Title := 'Wave demo screensaver - ⌐ Remco de Korte 2000';
  27.   Application.CreateForm(Tmainscreen, mainscreen);
  28.   Application.Run;
  29.    end
  30.  
  31.   else if (Paramcount > 0) AND ((UpperCase(ParamStr(1)) = '/C') OR (UpperCase(ParamStr(1)) = '-C')) then
  32.    MessageDlg (' No configuration ', mtInformation, [mbCancel], 0);
  33. end.
  34.